home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / smaltalk.lha / smalltalk-1.1.1 / stix / event.st < prev    next >
Text File  |  1991-09-12  |  3KB  |  108 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23.  
  24. "
  25. |     Change Log
  26. | ============================================================================
  27. | Author       Date       Change 
  28. | sbyrne     24 May 90      created.
  29. |
  30. "
  31.  
  32. Object subclass: #XEvent
  33.        instanceVariableNames: 'sequenceNumber'
  34.        classVariableNames: 'EventMap'
  35.        poolDictionaries: 'XGlobals'
  36.        category: 'X hacking'
  37. !
  38.  
  39. !XEvent methodsFor: 'accessing'!
  40.  
  41. sequenceNumber
  42.     ^sequenceNumber
  43. !
  44.  
  45. mappedId: anId
  46.     ^Registry at: anId
  47.           ifAbsent: [ nil ]
  48. !!
  49.  
  50.  
  51. FileStream fileIn: 'Xevt.st'!
  52.  
  53. !XEvent class methodsFor: 'subinstance creation'!
  54.  
  55. initialize
  56.     | namePrefixes i sym |
  57.     namePrefixes _ #(
  58. KeyPress            "2"
  59. KeyRelease            "3"
  60. ButtonPress            "4"
  61. ButtonRelease            "5"
  62. MotionNotify            "6"
  63. EnterNotify            "7"
  64. LeaveNotify            "8"
  65. FocusIn                "9"
  66. FocusOut            "10"
  67. KeymapNotify            "11"
  68. Expose                "12"
  69. GraphicsExposure        "13"
  70. NoExposure            "14"
  71. VisibilityNotify        "15"
  72. CreateNotify            "16"
  73. DestroyNotify            "17"
  74. UnmapNotify            "18"
  75. MapNotify            "19"
  76. MapRequest            "20"
  77. ReparentNotify            "21"
  78. ConfigureNotify            "22"
  79. ConfigureRequest        "23"
  80. GravityNotify            "24"
  81. ResizeRequest            "25"
  82. CirculateNotify            "26"
  83. CirculateRequest        "27"
  84. PropertyNotify            "28"
  85. SelectionClear            "29"
  86. SelectionRequest        "30"
  87. SelectionNotify            "31"
  88. ColormapNotify            "32"
  89. ClientMessage            "33"
  90. MappingNotify            "34"
  91. ).
  92.     EventMap _ Array new: namePrefixes size.
  93.     i _ 2.
  94.     namePrefixes do: 
  95.     [ :prefix | sym _ (prefix, 'Event') asSymbol.
  96.             EventMap at: i put: (Smalltalk at: sym 
  97.                            ifAbsent: [ nil ]).
  98.             i _ i + 1 ]
  99. !
  100.  
  101. newFrom: aStream type: type
  102.     | class | 
  103.     class _ EventMap at: type.
  104.     ^class newFrom: aStream
  105. !!
  106.  
  107. XEvent initialize!
  108.